home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGASIC
/
CDITPDS2.LZH
/
DEMOM3.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-10
|
4KB
|
99 lines
'============================================================================
'DEMOM3.BAS Copyright (C) 1991, Clear Software. ALL RIGHTS RESERVED.
'============================================================================
'$INCLUDE: 'CITOOLS.BI'
'$INCLUDE: 'CIMENU3.BI'
'$INCLUDE: 'CIMOUSE.BI'
'============================================================================
DEFINT A-Z
'============================================================================
CONST TRUE = -1, FALSE = 0
'============================================================================
'============================================================================
'Initialize the mouse and dimention the arrays.
'============================================================================
MouseInit
DIM p1$(1 TO 10)
DIM pHi(1 TO 10)
DIM pHlp$(1 TO 10)
'============================================================================
'Define the array members for the menu choices and the highlight quick access
'keys.
'============================================================================
p1$(1) = "This Won't Hurt A Bit": pHi(1) = 19
p1$(2) = "Trust Me": pHi(2) = 1
p1$(3) = "I Was At The Library": pHi(3) = 1
p1$(4) = "I Told You So": pHi(4) = 12
p1$(5) = "Easy To Use": pHi(5) = 1
p1$(6) = "-": pHi(6) = 1
p1$(7) = "Exit": pHi(7) = 2
'============================================================================
'Set the pop up menu colors.
'============================================================================
PopColors 7, 1, 7, 1, 7, 1, 1, 7, 8, 8, 15, 15
'============================================================================
'Define the menu description array members and the description area and
'colors.
'============================================================================
pHlp$(1) = " The reason most of us don't believe doctors"
pHlp$(2) = " Chapter one in the `How To Sell Used Cars' manual"
pHlp$(3) = " What we wished our parents would have beleived"
pHlp$(4) = " A phrase we could all do without"
pHlp$(5) = " Famous software claims"
pHlp$(6) = ""
pHlp$(7) = " Exit the program"
PopDescript 1, 2, pHlp$(), 78, 15, 3
'============================================================================
'Set user defined exit keys for F1 and F2.
'============================================================================
PopExitKeySet 1, CHR$(0) + CHR$(59)
PopExitKeySet 2, CHR$(0) + CHR$(60)
'============================================================================
'Clear the screen, paint the background, and display the mouse cursor.
'============================================================================
CLS
COLOR 0, 7
ScreenPaint 2, 79, 2, 22, "."
DrawBox 1, 80, 1, 23, 2
MouseShow
'============================================================================
'Make the menu visible and active. If the user chooses "Exit" from the menu
'or presses the escape key, exit the loop.
'============================================================================
WHILE x <> 7 AND x <> -27
x = PopMenu(6, 28, p1$(), pHi(), " Quotes and Claims ", 1, 1)
WEND
'============================================================================
'Hide the mouse cursor, clean up the screen, and exit the program.
'============================================================================
MouseHide
COLOR 7, 0
CLS
END